#!/usr/bin/perl
# Bug noticed by Pin-Chin Huang

sub fun {
  0;
}

my $i;
$i = 1;

fun($i = 2, $i = $i+1);

print $i . "\n";

